#!/usr/bin/perl -w
#
#   This script compare two strings 
#
#   usage: a2a_complete_string.pl string1 string2
#
# Author: Facundo Ferrer <facundo.j.ferrer@intel.com>   
#

#print "un argument:".($#ARGV + 1);

my $ARGS=($#ARGV+1);
my $STRING_1=$ARGV[0];
my $STRING_2=$ARGV[1];
my $MATCH=0;

if ($ARGS != 2) {
    print "Exit status: 1\n";
    print "You have to give two arguments";
}else{
    if ($STRING_1 eq $STRING_2) {
	$MATCH=1;
    }else{
	$MATCH=0;
    }
    print $MATCH;
}
